home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / YAM FTP-Mail.intro < prev    next >
Encoding:
Text File  |  1997-04-04  |  536 b   |  33 lines
  1. /* ARexx - FTP-Mail-Request for YAM 
  2.  *
  3.  * Script generated by RecentScript
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. SAY "Searching YAM ARexx port..."
  9.  
  10. IF ~SHOW(PORTS,'YAM') THEN DO
  11.    ADDRESS COMMAND 'run <>NIL: YAM:YAM'
  12.  
  13.    DO 3 WHILE ~SHOW(PORTS,'YAM')
  14.       ADDRESS COMMAND 'WaitForPort YAM'
  15.    END
  16.  
  17.    IF RC = 5 THEN DO
  18.      SAY "failed"
  19.      EXIT
  20.    END
  21. END
  22.  
  23. SAY "succeeded"
  24.  
  25. RXLIB "YAM"
  26. ADDRESS 'YAM'
  27.  
  28. mailwrite
  29. writemailto '%2'
  30. writesubject 'RecentScript-FTP-Mail-Request'
  31.  
  32. ADDRESS COMMAND 'echo >t:RS.temp "begin*Nuuencode*Nreply-to %1*Nsize %4"'
  33.